﻿Public Class Programacion

    Dim _CODPEDIDO As String, _CODVEHICULO As String, _CODTURNO As String, _FECHA As Date, _ORD As Integer

    Sub New()

    End Sub

    Sub New(pedido As String, vehiculo As Integer, turno As String, fecha As Date, ord As Integer)
        Me._CODPEDIDO = pedido
        Me._CODVEHICULO = vehiculo
        Me._CODTURNO = turno
        Me._FECHA = fecha
        Me._ORD = ord
    End Sub

    Public Property DCI_Codigo() As String
        Get
            Return _CODPEDIDO
        End Get
        Set(value As String)
            _CODPEDIDO = value
        End Set
    End Property

    Public Property PRO_Orden() As Integer
        Get
            Return _ORD
        End Get
        Set(value As Integer)
            _ORD = value
        End Set
    End Property

    Public Property VEH_Codigo() As Integer
        Get
            Return _CODVEHICULO
        End Get
        Set(value As Integer)
            _CODVEHICULO = value
        End Set
    End Property

    Public Property TUR_Codigo() As Integer
        Get
            Return _CODTURNO
        End Get
        Set(value As Integer)
            _CODTURNO = value
        End Set
    End Property

    Public Property PRO_Fecha() As Date
        Get
            Return _FECHA
        End Get
        Set(value As Date)
            _FECHA = value
        End Set
    End Property

End Class
